home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -readerstuff- / jamie_seeney / hdinstallers / install_a-train next >
Text File  |  1998-06-17  |  4KB  |  204 lines
  1. ; installation script for A-Train  by J.Seeney
  2.  
  3. ; tell user that the installer will be creating a drawer for the game
  4.  
  5. (message
  6.   (cat "\nYour copy of A-Train will be installed in a new drawer named "
  7.      "\"A-Train Drawer\". You will be asked where on your hard drive "
  8.          "(or other storage device) you want this drawer created."
  9.   )
  10. )
  11.  
  12. ; ask user where to put the drawer
  13.  
  14. (set robolocate
  15.   (askdir
  16.     (prompt "Please indicate where you want the A-Train drawer "
  17.         "to be located.")
  18.     (help @askdir-help)
  19.     (default @default-dest)
  20.   )
  21. )
  22.  
  23. ; make a drawer
  24.  
  25. (set robopath (tackon robolocate "A-Train Drawer"))
  26.  
  27. (makedir robopath (infos))
  28.  
  29. (makedir (tackon robopath "Data") (infos))
  30.  
  31. (complete 10)
  32.  
  33. (set @default-dest robopath)
  34.  
  35. ; copy A-Train & Data to the drawer
  36.  
  37. (message "\nThe game files will now be copied from floppy disk to the new drawer.")
  38.  
  39. (askdisk
  40.   (prompt "Please insert the disk labeled \"A-Train Disk 1\".")
  41.   (help @askdisk-help)
  42.   (dest "A-Train Disk 1")
  43. )
  44.  
  45. (working "Copying program files.")
  46.  
  47. (copyfiles
  48.   (source "A-Train Disk 1:A-Train")
  49.   (dest robopath)
  50.   (infos)
  51. )
  52.  
  53. (copyfiles
  54.   (source "A-Train Disk 1:A-Train HiRes")
  55.   (dest robopath)
  56.   (infos)
  57. )
  58.  
  59. (complete 30)
  60.  
  61. (askdisk
  62.   (prompt "Please insert the disk labeled \"A-Train Disk 2\".")
  63.   (help @askdisk-help)
  64.   (dest "A-Train Disk 2")
  65. )
  66.  
  67. (working "Copying data files.")
  68.  
  69. (copyfiles
  70.   (source "A-Train Disk 2:Data")
  71.   (dest (tackon robopath "Data"))
  72.   (all)
  73.   (infos)
  74. )
  75.  
  76. (complete 90)
  77.  
  78. (tooltype
  79.   (dest (tackon robopath "Data"))
  80.   (noposition)
  81. )
  82.  
  83. (complete 100)
  84.  
  85. ; installation script for AT Constuction Set
  86. ; check things out by J.Seeney
  87.  
  88. (set def-dest @default-dest)
  89. (set def-dest-maybe (tackon @default-dest "A-Train Drawer"))
  90.  
  91. (if (exists def-dest-maybe) (set def-dest def-dest-maybe))
  92.  
  93. ; tell user that the game needs to installed where A-Train was
  94.  
  95. (set old-user @user-level)
  96. (user 2)
  97.  
  98. (message
  99.   (cat "\nYour copy of AT Constuction Set needs to be installed in the same "
  100.      "drawer that A-Train was installed. You will be asked to locate the "
  101.      "A-Train Drawer so the installation can continue."
  102.   )
  103. )
  104.  
  105. ; ask user where to put the drawer
  106.  
  107. (set ok 0)
  108.  
  109. (while (not ok)
  110.   (
  111.     (set robopath
  112.       (askdir
  113.         (prompt "Please indicate where the A-Train drawer is located.")
  114.         (help @askdir-help)
  115.         (default def-dest)
  116.       )
  117.     )
  118.  
  119.     (if (exists (tackon robopath "Data"))
  120.       (set ok 1)
  121.       (message "A-Train is not installed in that Drawer!")
  122.     )
  123.   )
  124. )
  125.  
  126. (user old-user)
  127.  
  128. (complete 5)
  129.  
  130. (set @default-dest robopath)
  131.  
  132. ; copy ATCS, Examples & new Data to the drawer
  133.  
  134. (message "\nThe game files will now be copied from floppy disk to the A-Train Drawer.")
  135.  
  136. (askdisk
  137.   (prompt "Please insert the disk labeled \"A-Train Construction Set Disk 1\".")
  138.   (help @askdisk-help)
  139.   (dest "ATCS Disk 1")
  140. )
  141.  
  142. (working "Copying program files.")
  143.  
  144. (complete 10)
  145.  
  146. (copyfiles
  147.   (source "ATCS Disk 1:AT Construction Set")
  148.   (dest robopath)
  149.   (infos)
  150. )
  151.  
  152. (complete 30)
  153.  
  154. (copyfiles
  155.   (source "ATCS Disk 1:AT Construction Set HiRes")
  156.   (dest robopath)
  157.   (infos)
  158. )
  159.  
  160. (working "Installing Example Games.")
  161.  
  162. (complete 40)
  163.  
  164. (run
  165.   (cat "\"ATCS Disk 1:c/atcs_expand\" \"ATCS Disk 1:examples.res\" \""
  166.     (tackon robopath "Example") "\" h"
  167.   )
  168. )
  169.  
  170. (complete 50)
  171.  
  172. (askdisk
  173.   (prompt "Please insert the disk labeled \"A-Train Construction Set Disk 2\".")
  174.   (help @askdisk-help)
  175.   (dest "ATCS Disk 2")
  176. )
  177.  
  178. (working "Copying data files.")
  179.  
  180. (copyfiles
  181.   (source "ATCS Disk 2:Data")
  182.   (dest (tackon robopath "Data"))
  183.   (pattern "#?.snd")
  184. )
  185.  
  186. (complete 80)
  187.  
  188. (copyfiles
  189.   (source "ATCS Disk 2:Data/atcs.res")
  190.   (dest (tackon robopath "Data"))
  191. )
  192.  
  193. (complete 95)
  194.  
  195. (if (exists "ATCS Disk 2:Data/atcs.catalog")
  196.   (copyfiles
  197.     (source "ATCS Disk 2:Data/atcs.catalog")
  198.     (dest (tackon robopath "Data"))
  199.   )
  200. ) 
  201.  
  202. (complete 100)
  203.  
  204.